00010 
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000000 0044^^0 000000 



000013 ?01000 000000' 

000014 542000 000000' 

000015 ?63140 000000 



00030 
00040 
00050 
00060 
00070 
00080 
00090 
00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 



INTERNAL CLOCK, CLK I N I , NUL JOB , APR I NT . RSCHED 

EXTERNAL APRSAV. APRRET, APRCHN , APRI LM, APRCHL 

EXTERNAL COMCNT . COMMAND . JOB , JOB ADR, APRS AC, JOBD AC, JOBPDP, JOBREL 

EXTERNAL USRPDP,JOBPEU,JOBPC,JBTADR,JOBADR,JQBDAT,USRPFU,CLOS,NXTjOB 

EXTERNAL STOPU, SCHEDF , T IME, JOBLEV . JOBUXT, UUO0, JOBDHI , CLKOFF, JBTSTS 



INTERVAL AND 
HAS EXPIRED 



PUSHJ PDP, TO AN ADDRESS 



CLOCK WILL TIME AN 
AFTER THE INTERVAL 
TO MAKE A REQUEST: 

CONO PI.PIOFF 

DPBI AC, CLOCK 

CONO Pl,PlON 
AC MUST CONTAIN- XWD ADDRESS , NUMBER OF CLOCK COUnTS+DATA»10000 
THE HIGH ORDER SIX BITS OF THE RIGHT HALF(DATA) ARE PLACED IN AC 
TAC RIGHT JUSTIFIED BEFORE THE PUSHJ PDP, ADDRESS IS DONE 

SYSTEM flags: 
STOPU IS SET N0N-2ER0 AT EITHER INTERRUPT SERVICE LEVEL OR 

UUO LEVEL AND A CLOCK INTERRUPT IS REQUESTED WHEN CURRENT 

JOB MUST BE STOPPED AND ANOTHER ONE RUN. 
SCHEDF IS SET NON-ZERO BY CLOCK ROUTINE WHEN IF IS IN THE PROCESS 

OF RESCHEDULING. IT IS CLEARED AFTER JOB HAS BEEN SET TO 

CURRENTLY RUNNING JOB. 
TIME IS THE TIME SYSTEM HAS RUN IN 60THS OF A SECOND 



PION=200 
PIOFF=400 

STOR=DAT 
T = TAC 
JA=JDAT 



CLOCK: POINT 36,C I PWT-1 , 35 
CIPWT: block 12 

CLKINi: MOVEI CIPWT-1 
HRRM CLOCK 
POPJ PDP, 



;BYTE POINTER TO CLOCK QUEUE 

;the queue 

;SET UP byte POINTER 
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00430 

000016 254000 000020' 00440 APRINT: JRST .+2 ;HERE ON APR INTERRUPT 

000017 254000 000017' 00450 JRST . ; TO OTHER DEVICES ON THIS CHANNEL 

000020 700340 230000 00460 CONSO APR, 230000 MS IT ANY OF THE OTHERS 

000021 254000 000024' 00470 JRST CIP0 ;N0, GO CHECK CLOCK 

000022 264000 000000 00480 JSR APRSAV ;YES, SAVE ACS 

000023 254000 000000 00490 JRST APRILM JAND GO PROCESS ILLEGAL MEMOR 

000024 700340 002000 00500 CIP0: CONSO APR, 2000 J IS CLOCK ENABLED 

000025 254000 000030' 00510 JRST CIPl JNO. GO TO OTHER DEVICES 

000026 700300 001000 00520 CONSZ APR, 1000 ;YES, DID CLOCK CAUSE INTERRUPT 

000027 254000 000034' 00530 JRST CIP2 JYES 

000030 336000 000000 00540 CIPi: SkIPN STOPU ;N0, IS THIS A REQUESTED INTERRUPT 

000031 254000 000017' 00550 JRST APRINT+1 ;N0, GO TO OTHER DEVICES 

000032 264000 000022' 00560 CIPIB: JSR APRSaV ;YES, SAVE ACS 

000033 254000 000064' 00570 JRST CIP6 ;RESCHEDULE BUT DONT TIME 



CLOCK - CLOCK SFRVICE ROUTINE 
T. HASTINGS 6-?-65 



PAGE 5 



000034 P64000 00003?' 

000035 350000 000000 

000036 200040 000000 

000037 370001 000000 
000040 700200 000000 



000041 550240 000000' 

000042 306240 000000' 

000043 254000 000062' 

000044 370105 000000 

000045 602100 007777 

000046 364240 000042' 

000047 700600 000400 

000050 200060 000000' 

000051 370000 000000' 

000052 700600 000200 

000053 202045 000000 

000054 135040 000143' 

000055 207000 000002 

000056 261140 000005 

000057 260142 000000 

000060 262140 000005 

000061 364240 000042' 

000062 332000 000000 

000063 260140 000000 

000064 402000 000030' 

000065 476000 000000 

000066 260140 000000 

000067 316200 000036' 
000070 254000 000136' 



00580 
00590 
00600 
00610 
00620 
00630 
00640 
00650 
00660 
00670 
00680 
00690 
00700 
00710 
00720 
00730 
00740 
00750 
00760 
00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 



CIP2: JSR APRSAV 
AOS TIHE 
MOVE TACJOB 
SOS JBTSTS(TaC) 
CONO APR.CLKOFF 



;SAVE ACS 

mncrement time 
;decrement current 



JOBS RUNNING TIME 



TURN CLOCK FLAG OFF 



JPROCESS TIMING REQUESTS STORED IN QUEUE 



CIP4 



CIP5: 

RSCHEO: 
CIP6: 



HRRZ STOR 
CAIN STOR 
JRST CIP5 
SOS TACl, 
TRNE TACl 
SOJA STOR 
CONO PI, 
MOVE TAC, 



, CLOCK 
, CIPWT-1 

(STOR) 
. 7777 
. CIP4 
PIOFF 

6»CL0CK 



;get 

;end 



OF LIST 



end 

YET 
YES 

DECREMENT TIMING 
TIME EXPIRED YET 
NO, CONTINUE SCAN 
YES, MOVE LAST ITEM 



REQUEST 



IN LIST TO THS 



SOS CLOCK 
CONO PI. PION 
MOVEM TAC, (STOR) 
LDB TAC, CPOINT 6. 
MOVSS TACl 
PUSH POP, STOR 
PUSHJ POP, (TACl) 
POP POP, STOR 
SOJA STOR, CIP4 

SKIPE COMCNT 
PUSHJ POP, COMMAND 

SET2M STOPU 

SETOM SCHEDF 

PUSHJ POP, NXTJOB 

CAMN ITEM, JOB 

JRST CIP8 ;YES, EXIT 



TACl, 23] ;GET 6 BIT DATA ITEM 
;SETUP DISPATCH ADDRESS 
;SAVE ONLY VALUABLE AC 
;AND DISPATCH TO TIMING REQUEST ROUTINE 

;G0 BACK FOR MORE REQUESTS 

;ANY COMMANDS TO PROCESS 

;yes 

;reschedule, here after aprilm 

JCLEAR interrupt REQUEST FLAG 

;flag that scheduling is in progress 
;return highest priority JOB in AC item 

; IS IT SAME AS current JOB 
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00930 

00940 .'DIFFERENT JOB, SAVE OLD JOB 

000071 336000 000067* 00950 SKIPN JOB JIS OLD JOB THE NULL JOB 

000072 254000 000110' 00960 JRST CIP7 ;YES, DONT BOTHER TO SAVE ANYTHING 

000073 200440 000000 00970 MOVE JA, JOBADR ;N0, MOVE CHANNEL ACS TO USER JOB AREA 

000074 201051 000000 00980 MOVEI T.JOBDACCJA) 

000075 505040 000000 00990 HRLI T, APRSAC 

000076 251051 000000 01000 BLT T, JOBDHKJA) 

000077 201051 000000 01010 MOVEI T, JOBPOPCJA) ;MOVE JOB STATE VARIABLES TO JOB DATA A 
000100 505040 000000 01020 HRLI T, USRPOP 

PI00101 251051 000000 01030 BLT T, JOBPFU(JA) 

000102 200040 000040 01040 MOVE T, 40 ;SAVE LOG. 40 

000103 202051 00000P! 01050 MOVEM T, JOBLEV(JA) 

000104 200040 000000 01060 MOVE T, UUO0 ;AND UUO PC 

000105 202051 000000 01070 MOVEM T, JOBUXT(JA) 

000106 200040 000000 01080 MOVE T, APRCHL JSET C(CHANNEL INTERRUPT LOC.) AS PC 

000107 202051 000000 01090 MOVEM T, JOBPC(JA) 

01100 



CLOCK - CLOCK SFRVICE ROUTINE 
T. HASTINGS 6-?-^5 



PAGE 7 



000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 
000135 

000136 
000137 



202200 
403000 
322200 
200444 
552440 
552440 
556451 
700140 
201040 
505051 
251040 
200051 
202040 
200051 
202040 
200051 
202040 
205751 
251740 
332000 
254000 
254520 



000071' 

000065' 

000140' 

000000 

000073' 

000000 

000000 

000011 

000100' 

000077' 

000000 

000103' 

000040 

000105' 

000104' 

000107' 

000106' 

000074' 

000017 

000064' 

00003?' 

000130' 



402000 000111' 
254000 000000 



000140 254400 000141' 

000141 200040 000142' 

000142 344000 000001 



000143 140600 000002 



01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 

01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 
01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 



;restor new job 



CIP7 



CIPB 



MOVEM ITEM, JOB ;STORE NEW CURRENT JOB NUMBER 

SETZB 0,SCHEDF MNDICATE SCHEDULING FINISHED 

JUMPE ITEM, NUL0 MS NEW JOB NULL JOB 

MOVE JA, JBTADR(ITEM) ;SETUP STaTE VARIABLES FOR CU 

HRRZM JA, JOBADR JIN SYSTEM AREA 

HRR2M JA, JOBOAT 

HLR2M JA, JOBREL(JA) ;SET RELOCATION AND PROTECTIO 

DATAO JA 

MOVEI T.USRPDP 

HRLI T, JOBPDPCJA) 

BLT T, USRPFU 

MOVE T, JOBLEV(JA) 

MOVEM T, 40 

MOVE T, JOBUXT(JA) 

MOVEM T, UUO0 

MOVE T, JOBPC(JA) 

MOVEM T, APRCHL 

MOVSI 17, JOBDAC(JA) 

BLT 17,17 

SKIPE STOPU 

JRST CIPIB 

JEN PAPRCHL 



SETZM SCHEDF 
JRST APRRET 



JTHE NULL JOB 

NUL0: JRST 10, NULJOB 



;M0VE JOB STATE VARIABLES TO SYSTEM ARE 

;restore loc. 40 

;AND UUO PC 

;set c(channel loc. ) to c(jobpc) 
;restore user acs 

;HAS STOPU been set since CIP6 

;yes, go reschedule 
;no, dismiss channel 

;CLEAR scheduling flag 
;and dismiss interrupt 

;renable and run in exec, mode 



NULJOB: 



MOVE 1, .+1 

AOJA 0,1 ;COUNT IN AC0 FOR VISUAL MONITORING 

;also PC = 1 



END, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000144 
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A 

ACl 

AC2 

AC3 

AL 

APRCHL 

APRCHN 

APRILM 

APRINT 

APRRET 

APRSAC 

APRSAV 

ASSCON 

ASSPRG 

R 

RUEPNT 

RUFWRO 

CIP0 

CIPI 

CIPIB 

CIP2 

CIP4 

CIP5 

CIP6 

CIP7 

CIP8 

CIPWT 

CLOS 

CLKINI 

CLKOFE 

CLOCK 

CLOSR 

CLSIN 

CLSOUT 

COMCNT 

COMMAN 

n 

DAT 
OCL 

new 

ODl 

000 

DDTMEM 

ODTSYM 

DEN 

DEVADR 

DEVBUF 

OEVCNR 

DEVOIR 

DEVDAT 

DEVIAD 

DEVI OS 

DEVLOG 

DEVMOD 

DEVNAM 



000000 

000015 

000016 

000017 

000001 

000135' 

000000 

000023' 

000016' 

000137' 

000075' 

000034' 

400000 

200000 

000014 

000012 

000013 

000024' 

000030' 

000032' 

000034' 

000042' 

000062' 

000064* 

000110' 

000136' 

000001 ' 

000000 

000013' 

000040' 

000000' 

002000 

000002 

000001 

000062' 

000063' 

000017 

000005 

000001 

020000 

000007 

000006 

000037 

000036 

000004 

000007 

000006 

000001 

000011 

000006 

000007 

000002 

000005 

000004 

000000 



INT 
INT 
INT 
INT 
INT 
EXT 
EXT 
EXT 
INT 
EXT 
EXT 
EXT 
INT 
INT 
INT 
INT 
INT 



EXT 
INT 
EXT 
INT 
INT 
INT 
INT 
EXT 
EXT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
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OEVOAO 

DEVPTR 

OEVSER 

nCF 

DIM 

OLK 

OOU 

OR 

ORL 

nsi 

OSO 
DTK 

nVAVAL 
DVCDR 

ovniR 
ovniRi 

OVIN 

OVLPT 

DVMTA 

OVOUT 

DVTTY 

ENTRR 

I 

IB 

I8UEB 

INITR 

INPB 

10 

lOACT 

lOREG 

lORKTL 

lOCON 

lODEND 

lOOERR 

lonisc 
lonoNE 

lOnTER 

lOEND 

lOFST 

lOIMPM 

lONRCK 

lORDEL 

lORET 

IDS 

lOSTRT 

lOUSE 

lOW 

lOWC 

lOWS 

ITEM 

JA 

JBEADR 

JBECTR 

JBFPTR 

JBTADR 



000010 


TNT 


000010 


INT 


000003 


INT 


000012 


INT 


000003 


INT 


000005 


INT 


000002 


INT 


000016 


INT 


000000 


INT 


000011 


INT 


000010 


INT 


040000 


INT 


000040 


INT 


100 000 


INT 


000004 


INT 


400000 


INT 


000002 


INT 


040000 


INT 


000020 


INT 


000001 


INT 


000010 


INT 


020000 


INT 


000010 


INT 


000013 


INT 


200000 


INT 


400000 


TNT 


010000 


INT 


000020 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


TNT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000011 




000000 


INT 


000002 


INT 


000001 


INT 


000113' 


EXT 
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JBTSTS 

JBUF 

JOAT 

JERR 

JIOW 

JNA 

JOB 

JORADR 

JOBDAC 

JORDAT 

JOBDHI 

JOBLEV 

JOBPC 

JORPDP 

JOPPFU 

JOBREL 

JORUXT 

LOOKR 

MTW 

NUL0 

NULJ08 

NXTJOB 

0BUF6 

OUTPB 

POP 

PICHN 

PIOFF 

PION 

PROG 

RSCHED 

RUN 

RUNABL 

SCHEOF 

STOPU 

STOR 

T 

TAC 

TACl 

TEM 

TIME 

TTYATC 

TTYUSE 

USRMOD 

USRPOP 

USRPFU 

UUO 

UUO0 



000037' 

000005 

000011 

00P000 

100000 

004000 

000110' 

000114' 

000131' 

000115' 

000076' 

000123' 

000127' 

000121' 

000101' 

000116' 

000125' 

040000 

010000 

000140' 

000141' 

000066' 

100000 

004000 

000003 

000100 

000400 

000200 

000007 

000064' 

200000 

204000 

000136' 

000133' 

000005 

000001 
000001 

000002 

000010 

000035' 

020000 

010000 

010000 

000120' 

000122' 

000014 

000126' 



EXT 
INT 
INT 
INT 
INT 
INT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
EXT 
INT 
INT 

INT 
EXT 

INT 
INT 
INT 
INT 



INT 
INT 
INT 

INT 
EXT 
EXT 



INT 
INT 
INT 
EXT 
INT 
INT 
INT 
FXT 
EXT 
INT 
EXT 



END OF ASSEMBLY 



